VERSION 5.00
Object = "{8E27C92E-1264-101C-8A2F-040224009C02}#7.0#0"; "MSCAL.OCX"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form frmReturnLbl 
   Caption         =   "Return Label Information"
   ClientHeight    =   7110
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6255
   Icon            =   "frmReturnLbl.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   ScaleHeight     =   7110
   ScaleWidth      =   6255
   StartUpPosition =   1  'CenterOwner
   Begin TabDlg.SSTab SSTab1 
      Height          =   6975
      Left            =   60
      TabIndex        =   27
      Top             =   60
      Width           =   6135
      _ExtentX        =   10821
      _ExtentY        =   12303
      _Version        =   393216
      Tabs            =   2
      TabsPerRow      =   2
      TabHeight       =   520
      TabCaption(0)   =   "Return Labels"
      TabPicture(0)   =   "frmReturnLbl.frx":1272
      Tab(0).ControlEnabled=   -1  'True
      Tab(0).Control(0)=   "Frame3"
      Tab(0).Control(0).Enabled=   0   'False
      Tab(0).ControlCount=   1
      TabCaption(1)   =   "Online Returns"
      TabPicture(1)   =   "frmReturnLbl.frx":128E
      Tab(1).ControlEnabled=   0   'False
      Tab(1).Control(0)=   "Frame4"
      Tab(1).ControlCount=   1
      Begin VB.Frame Frame4 
         BackColor       =   &H00FFFFFF&
         BorderStyle     =   0  'None
         Caption         =   "Frame3"
         Height          =   6615
         Left            =   -74985
         TabIndex        =   29
         Top             =   315
         Width           =   6060
         Begin VB.Frame Frame2 
            BackColor       =   &H00FFFFFF&
            Caption         =   "Online Return Label"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H000080FF&
            Height          =   4815
            Left            =   240
            TabIndex        =   43
            Top             =   180
            Width           =   5655
            Begin MSACAL.Calendar Calendar1 
               Height          =   255
               Left            =   1860
               TabIndex        =   50
               TabStop         =   0   'False
               Top             =   2460
               Visible         =   0   'False
               Width           =   255
               _Version        =   524288
               _ExtentX        =   450
               _ExtentY        =   450
               _StockProps     =   1
               BackColor       =   16777215
               Year            =   2004
               Month           =   2
               Day             =   9
               DayLength       =   1
               MonthLength     =   2
               DayFontColor    =   0
               FirstDay        =   1
               GridCellEffect  =   1
               GridFontColor   =   10485760
               GridLinesColor  =   -2147483632
               ShowDateSelectors=   -1  'True
               ShowDays        =   -1  'True
               ShowHorizontalGrid=   -1  'True
               ShowTitle       =   0   'False
               ShowVerticalGrid=   -1  'True
               TitleFontColor  =   10485760
               ValueIsNull     =   -1  'True
               BeginProperty DayFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
                  Name            =   "Arial"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               BeginProperty GridFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
                  Name            =   "Arial"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               BeginProperty TitleFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
                  Name            =   "Arial"
                  Size            =   12.01
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
            End
            Begin VB.TextBox f20 
               Height          =   315
               Left            =   1860
               TabIndex        =   24
               Top             =   4260
               Width           =   2055
            End
            Begin VB.ComboBox f23 
               Height          =   315
               ItemData        =   "frmReturnLbl.frx":12AA
               Left            =   1860
               List            =   "frmReturnLbl.frx":12B4
               TabIndex        =   23
               Top             =   3900
               Width           =   3315
            End
            Begin VB.TextBox f2388 
               Height          =   1035
               Left            =   1860
               MultiLine       =   -1  'True
               ScrollBars      =   2  'Vertical
               TabIndex        =   19
               Top             =   1380
               Width           =   3315
            End
            Begin VB.TextBox f2389 
               Height          =   315
               Left            =   1860
               TabIndex        =   21
               Top             =   3180
               Width           =   3315
            End
            Begin VB.TextBox f1398 
               Height          =   675
               Left            =   1860
               MultiLine       =   -1  'True
               TabIndex        =   20
               Top             =   2460
               Width           =   3315
            End
            Begin VB.TextBox f2392 
               Height          =   315
               Left            =   1860
               TabIndex        =   18
               ToolTipText     =   "Email address of the person that will print the label."
               Top             =   1020
               Width           =   3315
            End
            Begin VB.TextBox f1202 
               Height          =   315
               Left            =   1860
               TabIndex        =   17
               ToolTipText     =   "Email address of a person from your company."
               Top             =   660
               Width           =   3315
            End
            Begin VB.CheckBox chkOnlineRetLbl 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Use Online Return Label "
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Left            =   1860
               TabIndex        =   16
               Top             =   300
               Width           =   3315
            End
            Begin VB.TextBox f2387 
               ForeColor       =   &H00000000&
               Height          =   315
               Left            =   1860
               TabIndex        =   22
               Top             =   3540
               Width           =   975
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "(80 Chars Max) "
               ForeColor       =   &H000080FF&
               Height          =   255
               Index           =   9
               Left            =   360
               TabIndex        =   56
               Top             =   2820
               Width           =   1455
            End
            Begin VB.Label Label1 
               BackColor       =   &H00FFFFFF&
               Caption         =   "(30 Days Max) "
               ForeColor       =   &H000080FF&
               Height          =   255
               Index           =   8
               Left            =   3360
               TabIndex        =   55
               Top             =   3600
               Width           =   1095
            End
            Begin VB.Label lblf20 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Bill-to Account #:"
               Height          =   255
               Index           =   0
               Left            =   360
               TabIndex        =   54
               Top             =   4320
               Width           =   1335
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Bill Shipment to:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Index           =   19
               Left            =   300
               TabIndex        =   53
               Top             =   3960
               Width           =   1455
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "(200 Chars Max) "
               ForeColor       =   &H000080FF&
               Height          =   255
               Index           =   7
               Left            =   360
               TabIndex        =   52
               Top             =   1740
               Width           =   1455
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Email Message:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Index           =   6
               Left            =   360
               TabIndex        =   51
               Top             =   1440
               Width           =   1455
            End
            Begin VB.Image Image2 
               Height          =   345
               Left            =   2940
               Picture         =   "frmReturnLbl.frx":12E0
               Stretch         =   -1  'True
               Top             =   3540
               Width           =   345
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Expiration Date:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Index           =   5
               Left            =   300
               TabIndex        =   49
               Top             =   3600
               Width           =   1455
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Merchant Phone:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Index           =   4
               Left            =   240
               TabIndex        =   48
               Top             =   3240
               Width           =   1515
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Item Description:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Index           =   2
               Left            =   360
               TabIndex        =   46
               Top             =   2520
               Width           =   1455
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Returning Email:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Index           =   1
               Left            =   360
               TabIndex        =   45
               Top             =   1080
               Width           =   1455
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Recipient Email:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Index           =   0
               Left            =   360
               TabIndex        =   44
               Top             =   720
               Width           =   1455
            End
         End
         Begin VB.CommandButton cmdSave 
            Appearance      =   0  'Flat
            BackColor       =   &H00E0E0E0&
            Caption         =   "&Save/Exit"
            Height          =   315
            Index           =   1
            Left            =   1500
            MaskColor       =   &H0080C0FF&
            Style           =   1  'Graphical
            TabIndex        =   25
            Top             =   6120
            UseMaskColor    =   -1  'True
            Width           =   1215
         End
         Begin VB.CommandButton cmdCancel 
            Appearance      =   0  'Flat
            BackColor       =   &H00E0E0E0&
            Caption         =   "&Cancel"
            Height          =   315
            Index           =   1
            Left            =   3300
            MaskColor       =   &H0080C0FF&
            Style           =   1  'Graphical
            TabIndex        =   26
            Top             =   6120
            UseMaskColor    =   -1  'True
            Width           =   1215
         End
      End
      Begin VB.Frame Frame3 
         BackColor       =   &H00FFFFFF&
         BorderStyle     =   0  'None
         Caption         =   "Frame3"
         Height          =   6615
         Left            =   15
         TabIndex        =   28
         Top             =   315
         Width           =   6060
         Begin VB.CommandButton cmdSave 
            Appearance      =   0  'Flat
            BackColor       =   &H00E0E0E0&
            Caption         =   "&Save/Exit"
            Height          =   315
            Index           =   0
            Left            =   1500
            MaskColor       =   &H0080C0FF&
            Style           =   1  'Graphical
            TabIndex        =   14
            Top             =   6120
            UseMaskColor    =   -1  'True
            Width           =   1215
         End
         Begin VB.CommandButton cmdCancel 
            Appearance      =   0  'Flat
            BackColor       =   &H00E0E0E0&
            Caption         =   "&Cancel"
            Height          =   315
            Index           =   0
            Left            =   3300
            MaskColor       =   &H0080C0FF&
            Style           =   1  'Graphical
            TabIndex        =   15
            Top             =   6120
            UseMaskColor    =   -1  'True
            Width           =   1215
         End
         Begin VB.Frame Frame23 
            BackColor       =   &H00FFFFFF&
            Caption         =   "Return Address"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H000080FF&
            Height          =   4095
            Left            =   240
            TabIndex        =   32
            Top             =   1860
            Width           =   5655
            Begin VB.ComboBox cboAddrID 
               Height          =   315
               Left            =   1860
               TabIndex        =   4
               Top             =   660
               Width           =   3315
            End
            Begin VB.ComboBox f117 
               Height          =   315
               Left            =   1860
               TabIndex        =   12
               Top             =   3180
               Width           =   3315
            End
            Begin VB.TextBox f6 
               Height          =   315
               Left            =   1860
               TabIndex        =   8
               Top             =   2100
               Width           =   3315
            End
            Begin VB.CheckBox chkNoShipLabel 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Create Return Label Only"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Left            =   1860
               TabIndex        =   3
               Top             =   300
               Width           =   3315
            End
            Begin VB.TextBox f7 
               Height          =   315
               Left            =   1860
               TabIndex        =   9
               Top             =   2460
               Width           =   3315
            End
            Begin VB.TextBox f5 
               Height          =   315
               Left            =   1860
               TabIndex        =   7
               Top             =   1740
               Width           =   3315
            End
            Begin VB.TextBox f4 
               Height          =   315
               Left            =   1860
               TabIndex        =   6
               Top             =   1380
               Width           =   3315
            End
            Begin VB.TextBox f32 
               Height          =   315
               Left            =   1860
               TabIndex        =   5
               Top             =   1020
               Width           =   3315
            End
            Begin VB.TextBox f183 
               Height          =   315
               Left            =   1860
               TabIndex        =   13
               Top             =   3540
               Width           =   2295
            End
            Begin VB.TextBox f9 
               Height          =   315
               Left            =   4200
               TabIndex        =   11
               Top             =   2820
               Width           =   975
            End
            Begin VB.ComboBox f8 
               Height          =   315
               Left            =   1860
               TabIndex        =   10
               Top             =   2820
               Width           =   2175
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Address ID:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Index           =   235
               Left            =   660
               TabIndex        =   42
               Top             =   720
               Width           =   1095
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Country:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Index           =   233
               Left            =   780
               TabIndex        =   41
               Top             =   3180
               Width           =   975
            End
            Begin VB.Label Label6 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Address 2:"
               Height          =   255
               Index           =   3
               Left            =   870
               TabIndex        =   40
               Top             =   2160
               Width           =   855
            End
            Begin VB.Label Label52 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Contact:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Left            =   900
               TabIndex        =   39
               Top             =   1080
               Width           =   855
            End
            Begin VB.Label Label51 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Company:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Left            =   780
               TabIndex        =   38
               Top             =   1440
               Width           =   975
            End
            Begin VB.Label Label6 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Address 1:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Index           =   2
               Left            =   720
               TabIndex        =   37
               Top             =   1800
               Width           =   1035
            End
            Begin VB.Label Label50 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "City:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Left            =   1260
               TabIndex        =   36
               Top             =   2520
               Width           =   495
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Phone:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Index           =   228
               Left            =   1140
               TabIndex        =   35
               Top             =   3600
               Width           =   615
            End
            Begin VB.Label Label49 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Zip:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Left            =   3660
               TabIndex        =   34
               Top             =   2580
               Width           =   495
            End
            Begin VB.Label Label48 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "State:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Left            =   1140
               TabIndex        =   33
               Top             =   2880
               Width           =   615
            End
         End
         Begin VB.Frame Frame1 
            BackColor       =   &H00FFFFFF&
            Caption         =   "Package Details"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H000080FF&
            Height          =   1515
            Left            =   240
            TabIndex        =   30
            Top             =   180
            Width           =   5655
            Begin VB.TextBox f2210 
               Height          =   315
               Left            =   1860
               TabIndex        =   2
               Top             =   1020
               Width           =   2055
            End
            Begin VB.ComboBox f1273 
               Height          =   315
               ItemData        =   "frmReturnLbl.frx":15EA
               Left            =   1860
               List            =   "frmReturnLbl.frx":15EC
               TabIndex        =   1
               Top             =   660
               Width           =   3315
            End
            Begin VB.ComboBox f1274 
               Height          =   315
               ItemData        =   "frmReturnLbl.frx":15EE
               Left            =   1860
               List            =   "frmReturnLbl.frx":15F0
               TabIndex        =   0
               Top             =   300
               Width           =   3315
            End
            Begin VB.Label lblf20 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "RMA #:"
               Height          =   255
               Index           =   1
               Left            =   780
               TabIndex        =   57
               Top             =   1080
               Width           =   975
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Packaging Type:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Index           =   3
               Left            =   300
               TabIndex        =   47
               Top             =   720
               Width           =   1455
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Service Type:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Index           =   21
               Left            =   300
               TabIndex        =   31
               Top             =   360
               Width           =   1455
            End
         End
      End
   End
End
Attribute VB_Name = "frmReturnLbl"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

'---------------------------------------------------------------------------------------
' Procedure : Calendar1_Click()
' DateTime  : 6/28/2005
' Purpose   : Puts date selected on calendar in Expiration Date field.
'---------------------------------------------------------------------------------------
'
Private Sub Calendar1_DblClick()
    f2387.Text = Calendar1.Value
    Calendar1.Visible = False
End Sub
'---------------------------------------------------------------------------------------
' Procedure : cboAddrID_Click()
' DateTime  : 6/28/2005
' Purpose   : Loads address fields for selected address ID.
'---------------------------------------------------------------------------------------
'
Private Sub cboAddrID_Click()
    If cboAddrID = "[Create New]" Then
        f1485 = ""
        f1486 = ""
        f1487 = ""
        f1488 = ""
        f1489 = ""
        f1490 = ""
        f1491 = ""
        f1492 = ""
    Else
        Call LoadReturnAddrForm("AddrID", cboAddrID, Me)
    End If

End Sub
'---------------------------------------------------------------------------------------
' Procedure : chkNoShipLabel_Click()
' DateTime  : 6/28/2005
' Purpose   : Set button captions and color if print only return labels or not.
'---------------------------------------------------------------------------------------
'
Private Sub chkNoShipLabel_Click()
    Dim i As Integer
    
    For i = 0 To cmdSave.UBound
        cmdSave(i).Caption = IIf(chkNoShipLabel = 1, "Print", "Save/Exit")
        cmdSave(i).BackColor = IIf(chkNoShipLabel = 1, &HC0E0FF, &HE0E0E0)
        cmdCancel(i).Caption = IIf(chkNoShipLabel = 1, "Done", "Cancel")
    Next
    
    'Enable Save/Exit button when npt printing only return labels.
    If chkNoShipLabel = 0 Then
        For i = 0 To cmdSave.UBound
            cmdSave(i).Enabled = True
        Next
    End If

End Sub
'---------------------------------------------------------------------------------------
' Procedure : chkOnlineRetlbl_Click()
' DateTime  : 6/28/2005
' Purpose   : Calls sub to get default values for Online Return tab and highlight required
'             fields if blank.
'---------------------------------------------------------------------------------------
'
Private Sub chkOnlineRetlbl_Click()
    Call UpdateOnlineReturnsTab
End Sub
'---------------------------------------------------------------------------------------
' Procedure : cmdCancel_Click()
' DateTime  : 6/9/2005
' Purpose   : Cancel button hides form
'---------------------------------------------------------------------------------------
'
Private Sub cmdCancel_Click(Index As Integer)
    
    If chkNoShipLabel = 1 Then
        Call ClearOnlineTab
        Call frmShip.ClearShipFields
        Call ClearGlobalVars
    End If
    
    Me.Hide
    If frmShip.Visible Then frmShip.SetFocus

End Sub
'---------------------------------------------------------------------------------------
' Procedure : cmdSave_Click()
' DateTime  : 6/9/2005
' Purpose   : Save/Exit (Print) button clicked. Save global vars and registry values and
'             send transactions if printing returns only.
'---------------------------------------------------------------------------------------
'
Private Sub cmdSave_Click(Index As Integer)
    
    '10/11/05 moved global var assignments to Public sub
    Call AssignFormGlobalVars
    
    'Save setting to registry
    With g_clsReg
        'Addr ID
        .SetRegistryValue "ReturnAddrID", cboAddrID, REG_SZ
        .SetRegistryValue "ReturnSvc", Left(f1274, 2), REG_SZ
        .SetRegistryValue "ReturnPkg", Left(f1273, 2), REG_SZ
        .SetRegistryValue "CompanyEmail", f1202, REG_SZ
        .SetRegistryValue "BillTo", Left(f23, 1), REG_SZ
        .SetRegistryValue "BillToAcct", f20, REG_SZ
    End With

    'No shipping label created only a return
    If chkNoShipLabel = 1 Then
        Call frmSetup.AssignSetupToGlobalVars
        Call frmShip.AssignTextToGlobal
        If chkOnlineRetLbl = 1 Then
            g_str1202 = f1202
            Call SendData(BuildOnlineReturnLabel)
        Else
            Call SendData(BuildReturnLabel)
        End If
    Else
        Me.Hide
        If frmShip.Visible Then frmShip.SetFocus
    End If
    
    Call SaveAltReturnAddr(cboAddrID, f32, f4, f5, f6, f7, f8, f9, Left(f117, 2), f183)

End Sub
'---------------------------------------------------------------------------------------
' Procedure : AssignFormGlobalVars()
' DateTime  : 10/11/2005
' Purpose   : Save global vars
'---------------------------------------------------------------------------------------
'
Public Sub AssignFormGlobalVars()
    
    g_str32Return = f32
    g_str4Return = f4
    g_str5Return = f5
    g_str6Return = f6
    g_str7Return = f7
    g_str8Return = Left(f8, 2)
    g_str9Return = f9
    g_str117Return = Left(f117, 2)
    g_str183Return = RemoveSpecial(f183)    'Return Shipper Phone
    g_str1274Return = Left(f1274, 2)        'Return Svc
    g_str1273Return = Left(f1273, 2)        'Return Pkging
    g_str2210 = f2210                       'RMA #
    
    'If online return set these globals
    If chkOnlineRetLbl = 1 Then
        g_str1202 = f1202
        g_str2392 = f2392
        g_str2388 = f2388
        g_str1398 = f1398
        g_str2389 = f2389
        g_str2387 = f2387
        g_str23Return = Left(f23, 1)
        g_str20Return = f20
    End If

End Sub
'---------------------------------------------------------------------------------------
' Procedure : f117_Change()
' DateTime  : 6/9/2005
' Purpose   : Sets full text of Country box
'---------------------------------------------------------------------------------------
'
Private Sub f117_Change()
    On Error GoTo EH
    
    If Len(f117) >= 2 Then
        Call SetComboSelection(f117, f117)
    End If
    
    Exit Sub
EH:
    MsgBox Err.Description, vbCritical, "frmReturnLbl:f117_Change"


End Sub
'---------------------------------------------------------------------------------------
' Procedure : f1202_Change()
' DateTime  : 7/15/2005
' Purpose   : If using Online returns, call sub to set back color on this required field.
'---------------------------------------------------------------------------------------
'
Private Sub f1202_Change()
    If chkOnlineRetLbl = 1 Then Call SetEmptyBackcolor(f1202)
End Sub
'---------------------------------------------------------------------------------------
' Procedure : f1273_Change()
' DateTime  : 6/9/2005
' Purpose   : Sets full text of Packaging Type box
'---------------------------------------------------------------------------------------
'
Private Sub f1273_Change()
    On Error GoTo EH
    
    If Len(f1273) >= 2 Then
        Call SetComboSelection(f1273, f1273)
    End If
    
    Exit Sub
EH:
    MsgBox Err.Description, vbCritical, "frmReturnLbl:f1273_Change"

End Sub
'---------------------------------------------------------------------------------------
' Procedure : f1274_Click()
' DateTime  : 7/15/2005
' Purpose   : If Ground, FHD, or Freight set pkg type to 01 - Customer pkging
'---------------------------------------------------------------------------------------
'
Private Sub f1274_Click()
    
    If Left(f1274, 2) = "92" Or Left(f1274, 2) = "90" Or _
       Left(f1274, 2) = "80" Or Left(f1274, 2) = "83" Then
            f1273 = "01"
    End If
    
End Sub
'---------------------------------------------------------------------------------------
' Procedure : f1398_Change()
' DateTime  : 7/15/2005
' Purpose   : If using Online returns, call sub to set back color on this required field.
'             Also limit length to 80 chars.
'---------------------------------------------------------------------------------------
'
Private Sub f1398_Change()
    If chkOnlineRetLbl = 1 Then Call SetEmptyBackcolor(f1398)
    If Len(f1398) > 80 Then
        f1398 = Left(f1398, 80)
        f1398.SelStart = Len(f1398)
    End If
End Sub
'---------------------------------------------------------------------------------------
' Procedure : f20_Change()
' DateTime  : 3/16/2004
' Purpose   : Acct# is numeric with max length of 9
'---------------------------------------------------------------------------------------
'
Private Sub f20_Change()
    On Error GoTo EH
    
    Call SetEmptyBackcolor(f20)
    Call NumericOnly(f20, False)
    Call CheckLength(f20, 9)
    
    Exit Sub
EH:
    MsgBox Err.Description, vbCritical, "frmShip:f20_Change"

End Sub
'---------------------------------------------------------------------------------------
' Procedure : f20_LostFocus()
' DateTime  : 3/16/2004
' Purpose   : Validate Billing acct# and give error if not valid. If blank, set acct#
'             back to Bill Shipper and set focus on Billing Type field.
'---------------------------------------------------------------------------------------
'
Private Sub f20_LostFocus()
    On Error GoTo EH
    
    If Not AcctNumCheckOK(f20) Then
        f20.BackColor = &HC0E0FF
        If f20 <> "" Then
            MsgBox "Invalid FedEx Account Number", vbExclamation, "Ship Error"
            f20.SetFocus
        End If
    End If
    
    Exit Sub
EH:
    MsgBox Err.Description, vbCritical, "frmShip:f20_LostFocus"

End Sub
'---------------------------------------------------------------------------------------
' Procedure : f2210_Change()
' DateTime  : 7/15/2005
' Purpose   : Limit length to 20 chars
'---------------------------------------------------------------------------------------
'
Private Sub f2210_Change()
    If Len(f2210) > 20 Then
        f2210 = Left(f2210, 20)
        f2210.SelStart = Len(f2210)
    End If
End Sub
'---------------------------------------------------------------------------------------
' Procedure : f23_Change()
' DateTime  : 8/9/2004
' Purpose   : Calls a routine to populate the entire text of selected payment type.
'---------------------------------------------------------------------------------------
'
Private Sub f23_Change()
    If chkOnlineRetLbl = 1 Then Call SetEmptyBackcolor(f23)
    If Len(f23) >= 1 Then
        Call SetComboSelection(f23, f23)
    End If
End Sub
'---------------------------------------------------------------------------------------
' Procedure : f23_Click()
' DateTime  : 3/16/2004
' Purpose   : Billing Type if 2 or 3 are selected highlight Billing Acct# field, and
'             set focus to it, else disable acct# field.
'---------------------------------------------------------------------------------------
'
Private Sub f23_Click()
    On Error GoTo EH
    
    f23.BackColor = &HFFFFFF
    If Left(f23, 1) = "3" Then
        f20.Enabled = True
        If Len(f20) = 0 Then
            f20.BackColor = &HC0E0FF
            If f20.Visible Then f20.SetFocus
        End If
    Else
        f20.Enabled = False
        f20 = ""
        f20.BackColor = &HFFFFFF
    End If
    
    Exit Sub
EH:
    MsgBox Err.Description, vbCritical, "frmReturnLbl:f23_Click"

End Sub
'---------------------------------------------------------------------------------------
' Procedure : f2387_Change()
' DateTime  : 7/15/2005
' Purpose   : If using Online returns, call sub to set back color on this required field.
'---------------------------------------------------------------------------------------
'
Private Sub f2387_Change()
    If chkOnlineRetLbl = 1 Then Call SetEmptyBackcolor(f2387)
End Sub
'---------------------------------------------------------------------------------------
' Procedure : f2388_Change()
' DateTime  : 7/15/2005
' Purpose   : Limit length to 200 chars
'---------------------------------------------------------------------------------------
'
Private Sub f2388_Change()
    If Len(f2388) > 200 Then
        f2388 = Left(f2388, 200)
        f2388.SelStart = Len(f2388)
    End If
End Sub
'---------------------------------------------------------------------------------------
' Procedure : f2389_Change()
' DateTime  : 7/15/2005
' Purpose   : If using Online returns, call sub to set back color on this required field.
'---------------------------------------------------------------------------------------
'
Private Sub f2389_Change()
    If chkOnlineRetLbl = 1 Then Call SetEmptyBackcolor(f2389)
End Sub
'---------------------------------------------------------------------------------------
' Procedure : f2392_Change()
' DateTime  : 7/15/2005
' Purpose   : If using Online returns, call sub to set back color on this required field.
'---------------------------------------------------------------------------------------
'
Private Sub f2392_Change()
    If chkOnlineRetLbl = 1 Then Call SetEmptyBackcolor(f2392)
End Sub
'---------------------------------------------------------------------------------------
' Procedure : f8_Change()
' DateTime  : 6/9/2005
' Purpose   : Sets full text of State box
'---------------------------------------------------------------------------------------
'
Private Sub f8_Change()
    On Error GoTo EH
    
    If Len(f8) >= 2 Then
        Call SetComboSelection(f8, f8)
    End If
    
    Exit Sub
EH:
    MsgBox Err.Description, vbCritical, "frmReturnLbl:f8_Change"

End Sub
'---------------------------------------------------------------------------------------
' Procedure : Form_Activate()
' DateTime  : 6/12/2006
' Purpose   : Load Staes or Provinces. Disable Online Returns for CA (not supported).
'---------------------------------------------------------------------------------------
'
Private Sub Form_Activate()
    
    'Load States
    If Left(Me.f117.Text, 2) = "US" Then
        Call LoadStates(f8, f8)
    ElseIf Left(Me.f117.Text, 2) = "CA" Then
        Call LoadProvinces(f8, f8)
        'Remove when supported by FXRS.
        ' 2014-08-27, JFW, Good for Canada now.
        ' SSTab1.TabEnabled(1) = False
        ' chkOnlineRetLbl = 0
    End If

End Sub
'---------------------------------------------------------------------------------------
' Procedure : Form_KeyUp()
' DateTime  : 8/12/2005
' Purpose   : If Alt-C is pressed call cmdCancel_Click to Cancel. If Alt-S is press call
'             cmdSave_Click to Save/Exit.
'---------------------------------------------------------------------------------------
'
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)

    If Shift = 4 Then
        If KeyCode = 67 Then
            Call cmdCancel_Click(0)
        ElseIf KeyCode = 83 Then
            Call cmdSave_Click(0)
        End If
    End If

End Sub
'---------------------------------------------------------------------------------------
' Procedure : Form_Load()
' DateTime  : 6/9/2005
' Purpose   : Load combo boxes, get registry info, load last saved return address.
'---------------------------------------------------------------------------------------
'
Private Sub Form_Load()
    
    On Error GoTo EH
    
    'Set Expiration Date calendar size
    f2387 = Date + 30
    Calendar1.Height = 2295
    Calendar1.Width = 3015
    Calendar1.Today
    
    'Show Return Label tab
    SSTab1.Tab = 0
    
    'Load Services
    Call LoadServicesCombo
    'Load Packaging
    Call LoadPackagingCombo
    'Load Countries
    Call LoadCountries(f117)
    
    With g_clsReg
        .hkey = HKEYTYPE
        .KeyRoot = MAINKEYROOT
        .Subkey = MAINSUBKEY
        f1274 = .GetRegistryValue("ReturnSvc", "01")
        f1273 = .GetRegistryValue("ReturnPkg", "01")
        cboAddrID = .GetRegistryValue("ReturnAddrID", "")
        f1202 = .GetRegistryValue("CompanyEmail", "")
        f23 = .GetRegistryValue("BillTo", "1")
        f20 = IIf(Left(f23, 1) = "1", "", .GetRegistryValue("BillToAcct", ""))
    End With
    
    'Load Return Addrs combo
    Call LoadAddrIDCombo(cboAddrID, cboAddrID)
    
    'Load the Address form from one selected in combo or get from Setup
    If cboAddrID <> "" Then
        Call LoadReturnAddrForm("AddrID", cboAddrID, Me)
    Else
        With frmSetup
            f32 = .f32
            f4 = .f4
            f5 = .f5
            f7 = .f7
            f8 = Left(.f8, 2)
            f9 = .f9
            f117 = Left(.f117, 2)
            f183 = .f183
        End With
    End If
    
    Call Initialize(Me)
    
    Exit Sub
EH:
    MsgBox Err.Description, vbCritical, "frmReturnLbl:Form_Load"

End Sub
'---------------------------------------------------------------------------------------
' Procedure : LoadServicesCombo()
' DateTime  : 6/28/2004
' Purpose   : Load available Returns services
'---------------------------------------------------------------------------------------
'
Private Sub LoadServicesCombo()

    f1274.AddItem "01 - FedEx Priority Overnight"
    f1274.AddItem "05 - FedEx Standard Overnight"
    f1274.AddItem "03 - FedEx 2Day"
    f1274.AddItem "06 - FedEx First Overnight"
    f1274.AddItem "90 - FedEx Home Delivery"
    f1274.AddItem "92 - FedEx Ground"
    f1274.AddItem "80 - FedEx 2-Day Freight"
    f1274.AddItem "83 - FedEx 3-Day Freight"

End Sub
'---------------------------------------------------------------------------------------
' Procedure : LoadPackagingCombo()
' DateTime  : 6/28/2004
' Purpose   : Load available Returns packaging
'---------------------------------------------------------------------------------------
'
Private Sub LoadPackagingCombo()

    f1273.AddItem "01 - Your Packaging"
    f1273.AddItem "02 - FedEx Pak"
    f1273.AddItem "03 - FedEx Box"
    f1273.AddItem "04 - FedEx Tube"
    f1273.AddItem "06 - FedEx Envelope"

End Sub
'---------------------------------------------------------------------------------------
' Procedure : f1274_Change()
' DateTime  : 6/9/2005
' Purpose   : Sets full text of Service Code box
'---------------------------------------------------------------------------------------
'
Private Sub f1274_Change()
    On Error GoTo EH
    
    If Len(f1274) >= 2 Then
        Call SetComboSelection(f1274, f1274)
    End If
    
    Exit Sub
EH:
    MsgBox Err.Description, vbCritical, "frmReturnLbl:f1274_Change"

End Sub
'---------------------------------------------------------------------------------------
' Module    : Image2_Click()
' DateTime  : 6/28/2005
' Author    : Chris Elwell
' Purpose   : Show the Expiration Date calendar
'---------------------------------------------------------------------------------------
'
Private Sub Image2_Click()
    Calendar1.Visible = True
End Sub
'---------------------------------------------------------------------------------------
' Module    : SSTab1_Click()
' DateTime  : 6/29/2005
' Author    : Chris Elwell
' Purpose   : Update the fields on the Online Returns tab
'---------------------------------------------------------------------------------------
'
Private Sub SSTab1_Click(PreviousTab As Integer)
    If SSTab1.Tab = 1 Then
        UpdateOnlineReturnsTab
    End If
End Sub
'---------------------------------------------------------------------------------------
' Module    : UpdateOnlineReturnsTab()
' DateTime  : 6/29/2005
' Author    : Chris Elwell
' Purpose   : Pulls values from other forms if fields are empty
'---------------------------------------------------------------------------------------
'
Private Sub UpdateOnlineReturnsTab()
    If chkOnlineRetLbl = 1 Then
        'Pull in field values from other fields
        f1202 = IIf(f1202 = "", frmEmail.f1201, f1202)
        f2392 = IIf(f2392 = "", frmEmail.f1202, f2392)
        f1398 = IIf(f1398 = "", frmShip.f25, f1398)
        f2389 = IIf(f2389 = "", f183, f2389)
        'Required fields to orange if blank
        Call SetEmptyBackcolor(f1202)
        Call SetEmptyBackcolor(f2392)
        Call SetEmptyBackcolor(f1398)
        Call SetEmptyBackcolor(f2389)
        Call SetEmptyBackcolor(f2387)
        Call SetEmptyBackcolor(f23)
        'Set focus to the first blank field
        If f2387 = "" Then
            f2387.SetFocus
        End If
        If f2389 = "" Then
            f2389.SetFocus
        End If
        If f1398 = "" Then
            f1398.SetFocus
        End If
        If f2392 = "" Then
            f2392.SetFocus
        End If
        If f1202 = "" Then
            f1202.SetFocus
        End If
    Else
        f1202.BackColor = &HFFFFFF
        f2392.BackColor = &HFFFFFF
        f1398.BackColor = &HFFFFFF
        f2389.BackColor = &HFFFFFF
        f2387.BackColor = &HFFFFFF
        f2392 = ""
    End If
End Sub
'---------------------------------------------------------------------------------------
' Module    : ClearOnlineTab()
' DateTime  : 6/29/2005
' Author    : Chris Elwell
' Purpose   : Clear some of the fields on the Online tab
'---------------------------------------------------------------------------------------
'
Public Sub ClearOnlineTab()
    
    f2392 = ""  'Returning Email
    f2388 = ""  'Email message
    f1398 = ""  'Item description
    
End Sub
'---------------------------------------------------------------------------------------
' Module    : GotFocus - textboxes
' DateTime  : 8/29/2005
' Author    : Chris Elwell
' Purpose   : The subroutines below call a routine to select all text in the text box
'             passed to the sub.
'---------------------------------------------------------------------------------------
'
Private Sub f2210_GotFocus()
    Call SelectAllText(f2210)
End Sub

Private Sub f32_GotFocus()
    Call SelectAllText(f32)
End Sub

Private Sub f4_GotFocus()
    Call SelectAllText(f4)
End Sub

Private Sub f5_GotFocus()
    Call SelectAllText(f5)
End Sub

Private Sub f6_GotFocus()
    Call SelectAllText(f6)
End Sub

Private Sub f7_GotFocus()
    Call SelectAllText(f7)
End Sub

Private Sub f9_GotFocus()
    Call SelectAllText(f9)
End Sub

Private Sub f183_GotFocus()
    Call SelectAllText(f183)
End Sub

Private Sub f1202_GotFocus()
    Call SelectAllText(f1202)
End Sub

Private Sub f2392_GotFocus()
    Call SelectAllText(f2392)
End Sub

Private Sub f1398_GotFocus()
    Call SelectAllText(f1398)
End Sub

Private Sub f2388_GotFocus()
    Call SelectAllText(f2388)
End Sub

Private Sub f2389_GotFocus()
    Call SelectAllText(f2389)
End Sub

Private Sub f2387_GotFocus()
    Call SelectAllText(f2387)
End Sub

Private Sub f20_GotFocus()
    Call SelectAllText(f20)
End Sub

